home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / ad.sign painter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  114 lines
  1. 10 printchr$(147);chr$(142);:print chr$(8);
  2. 15 for xx=1to 360
  3. 16 print" ";:next xx
  4. 20 poke 53280,2:poke 53281,5
  5. 21 print"[146]    copyright 1984 tommy saffell
  6. 22 [153]"waitstop          +                 abs
  7. 24 forx=1to8:print"          [170]                 [182]":next x
  8. 34 print"            [161]   [161]   [161][207][208] [161]   [161]
  9. 35 [153]"            get   get   get(NULL)(NULL) get   get
  10. 36 print"            [161]   [161]   [161][207][208] [161]   [161]
  11. 37 [153]"            get   get   get(NULL)(NULL) get   get
  12. 38 print"                     [144][207][208]
  13. 40 [151] 1140,209
  14. 42 [151] 1184,174:[151] 1089,174:[151] 1119,174:[151] 1071,174
  15. 44 [151] 1206,174:[151] 1242,174:[151] 1196,174:[151] 1116,174
  16. 46 [151] 1255,174:[151] 1201,174:[151] 1135,174:[151] 1124,174
  17. 48 [151] 1296,174:[151] 1342,174
  18. 50 [151] 1389,174:[151] 1356,174:[151] 1402,174:[151] 1329,174
  19. 53 v [178] 53248:[151] v[170]21,1:[151] 2040,13:[151]v[170]23,0:[151]v[170]29,0
  20. 54 [129] x [178] 0 [164] 62:[135] qq:[151] 832[170]x,qq:[130] x
  21. 55 [151] v[170]39,6:a[178]255:[151]v[170]27,0
  22. 56 [129] x [178] 1 [164] 20:a[178]a[171]4:[129]d[178]1[164]50:[130]d
  23. 57 [151]v,188:[151]v[170]1,a
  24. 58 [151] 54296,15:[151] 54296,0:[130] x
  25. 59 [129] x [178] 255[171]80 [164] 255[171]120[169][171]4:[151] v[170]1,x:s[178]s[171]6.2:[151]v,188[170]s:[151] 54296,15
  26. 60 [151] 54296,0:[129] p [178] 1[164]30:[130]p:[130] x
  27. 61 [153]"onononononononononononon";:s$ [178] " sign painter "
  28. 62 [129]g[178]1[164]14:[153]"";[202](s$,g,1);:[129]f[178]1[164]8:[151]v[170]1,[194](v[170]1)[171]1:[130] f
  29. 63 [153]"cmd oncmd";
  30. 64 [153]"";[202](s$,g,1);
  31. 65 [153]"";:[129]f[178]1[164]8:[151] v,[194](v)[170]1:[151] v[170]1,[194](v[170]1)[170]1:[130]f
  32. 69 [151] 54296,15:[151] 54296,0
  33. 70 [129] d [178] 1 [164] 50:[130] d:[130] g
  34. 71 [153]"";:[151] v[170]1,[194](v[170]1)[170]8:s$[178] "copyright 1984 ":[129]x[178]1 [164] [195](s$)
  35. 72 [153][202](s$,1,x);:[129]c[178]1[164]x[170]1:[153]"cmd";:[130]c:[151] v,[194](v)[171]8:[130] x
  36. 73 [153]"";:[151] v[170]1,[194](v[170]1)[170]16:s$[178] "by tommy saffell":[129]x[178]1 [164] [195](s$)
  37. 74 [153][202](s$,17[171]x,16);:[129]c[178]1[164]x:[153]"cmd";:[130]c
  38. 75 [151] v,[194](v)[170]8:[130] x:[151]v[170]1,[194](v[170]1)[170]16:[153]"              ";
  39. 76 [151] v[170]1,[194](v[170]1)[170]8:s$[178] "press any key ":[129]x[178]1 [164] [195](s$)
  40. 77 [153][202](s$,1,x);:[129]c[178]1[164]x[170]1:[153]"cmd";:[130]c:[151] v,[194](v)[171]8
  41. 78 [151] 54296,15:[151] 54296,0:[130] x
  42. 79 [129] x [178] 1 [164] 7:[151]v,[194](v)[170]9:[151] 54296,15:[151] 54296,0:[129]p[178]1[164]30:[130]p
  43. 80 [130]x:[129] x[178] 1[164] 9:[151] v[170]1,[194](v[170]1)[170]8:[151] 54296,15:[151] 54296,0
  44. 81 [129]p[178]1[164]50:[130]p:[130]x
  45. 86 [151] 198,0:[146] 198,1:[161] a$
  46. 87 [129] x [178] 1 [164] 50:[151]53280,12:[151] 53280,8:[130] x
  47. 88 [129] x[178] 1 [164] 50:[151] 53280,5:[151] 53280,7:[130] x
  48. 100 [131] 0,20,0,0,170,128,0,127,0,0,255
  49. 110 [131] 128,0,255,128,0,255,128,0,127,0
  50. 120 [131] 0,28,0,3,28,96,6,62,48,3,127,96
  51. 130 [131] 1,221,192,0,156,128,0,28,0,0,62
  52. 140 [131] 0,0,54,0,0,99,0,0,193,128,0,193
  53. 150 [131] 128,0,193,128,3,193,224
  54. 200 :
  55. 300 [153]"loadstop"
  56. 310 t$[178]"sign painter":[141]60000
  57. 320 t$[178]"by tommy saffell":[141]60000
  58. 330 [153]:[153]
  59. 340 t$[178]" now you can print any kind of banner":[141]60000
  60. 350 t$[178]"you might want!!":[153]:[153]
  61. 360 t$[178]"you can choose from any of these types:":[141]60000
  62. 370 t$[178]"old english":[141]60000:t$[178]"bold  ":[141]60000:t$[178]"shadow ":[141]60000
  63. 380 t$[178]"normal ":[141]60000:[141]61000
  64. 390 :
  65. 400 [153]"load"
  66. 410 t$[178]"sign painter":[141]60000
  67. 420 t$[178]"by tommy saffell":[141]60000
  68. 430 [153]:[153]
  69. 440 t$[178]"  you also have these options:":[141]60000
  70. 450 t$[178]"tennis net":[141]60000:t$[178]"and":[141]60000:t$[178]"width":[141]60000
  71. 460 [153]:[153]
  72. 470 [141]61000
  73. 500 [153]"loadstop"
  74. 510 t$[178]"sign painter":[141]60000
  75. 520 t$[178]"by tommy saffell":[141]60000
  76. 530 [153]:[153]
  77. 540 t$[178]"  this program works with these":[141]60000:t$[178]"printers:":[141]60000
  78. 550 [153]:[153]
  79. 560 t$[178]"commodore 1525":[141]60000
  80. 570 t$[178]"mps 801":[141]60000
  81. 580 t$[178]"writeman super - 10":[141]60000
  82. 600 t$[178]"gemini 10-x with card?a":[141]60000:[141]61000
  83. 610 :
  84. 620 [153]"loadstop"
  85. 630 t$[178]"sign painter":[141]60000
  86. 640 t$[178]"by tommy saffell":[141]60000
  87. 650 [153]:[153]
  88. 660 t$[178]"be sure to order your copy today!!":[141]60000
  89. 670 [153]:[153]
  90. 680 t$[178]" just send $16.95 to:":[141]60000
  91. 690 t$[178]"loadstar":[141]60000
  92. 700 t$[178]"p.o. box 30007":[141]60000
  93. 710 t$[178]"shreveport, la":[141]60000
  94. 720 t$[178]"71130-0007":[141]60000
  95. 730 [153]
  96. 740 t$[178]"be sure to specify sign painter.":[141]60000
  97. 750 [141]61000
  98. 760 [141]63000
  99. 800 :
  100. 60000 [143]    centering
  101. 60002 t[178][195](t$):t[178]20[171]t[173]2:[153][163]t)t$:[153]
  102. 60004 [142]
  103. 60010 :
  104. 60020 :
  105. 61000 [143]    press a key
  106. 61002 [151]783,[194](783)[175]254
  107. 61004 [151]781,23:[151]782,13:[158]65520
  108. 61006 [153]"<press a key>"
  109. 61008 [151]198,0:[146]198,1:[153]:[142]
  110. 61010 :
  111. 63000 [143]    return to ad.menu
  112. 63002 [153]"loadload"[199](34)"ad.menu"[199](34)",8":[153]"run"
  113. 63004 [151]631,13:[151]632,13:[151]198,2:[128]
  114.